ddt 2-8-63 'a. kotok 



define 



dispatch LC.UC 

UC=UC-lse 

repeat 9, UC=UC+UC 

UC+LC-lse 

terminate 



low=. -6000+55^3 

tst=.-2 

est^.-l 



lis. 



Ise, 
Iss, 



Isp, 

ssn, 

n2, 

Isr, 

Psl, 



cas, 
cad. 



evl, 
eve. 



sym=7776 
wrd=7777 

dac ac 
4sp trl 

Jsp Ice 
clc 

dac chl 



dzm 
lac 

dip 
dzm 
dzm 
dzm 
clc 
dac 



wrd 
cun 
sgn 
dnm 
syl 
sym 

let 



llo ski 

dio wea 

init bax, Iwt 

listen 

dio ch 

law dfb . 

add ch 

dap .+1 

lac . 

XX 

and (777 
add tls 
dap Isx 
suTd arl 
spq 

jmp i Isx 
law syl 
lio let 
spi i 
jsp evl 
Jmp ev4 
lac (flex U 
J da tys 
jmp Isp 

dap evx 
xac € s u 
dap ev2 



/rar 9s or cli 



/last no-eval routine 



ev2, lac . 

sym 

/match found 





sad 


sym 






jmp 


ev3 






Idx 


ev2 






Index ev2, eve, ev2 




idx 


evx 




ev3. 


idx 


ev2 




evxy 


jmp 


• 




ev4. 


dap 


sgn 






lac 


wrd 




sgn. 


XX 








dac 


wrd 






lio 


Chi 






spi 








lac 


Iwt 




Isx, 


Jmp 


• 




n. 


Pir 


5s 






lac 


syl 






ral 


3s 






spi 


i 




can. 


ior 


ch 






dac 


syl 






lac 


dnm 






ral 


2s 






add 


dnm 






ral 


Is 






spi 


i 






add 


ch 






dac 


dnm 






jmp 


11 




1. 


dzm 


let 




11, 


lac 


sym 






ral 


6s 






add 


ch 






dac 


sym 






dzm 


chi 






Jiup 


Isr 





/operator and syllable addr. 



/number routine 



/letter routine 



Ic, 

quo. 



ir. 



m, 



<=i. 



nl. 



err, 
eri. 



daq. 



com. 



llo re 
Jitip .+2 
llo psl 
dlo- cas 
jmp Isr 

lac dnm 
jmp nl+1 

lac sym 
jmp nl 

law ac 
jmp nl 

law lo 
jmp nl 

law msk 
jmp nl 

lac Iwt 
jmp nl 

law est 
dzm chl 
dac syl 
jmp n2 

lac (743521 
jda tys 
law 7234 
jda tys 
jmp Isr 

law 7777 
and Iwt 

jmp .+2 

lac loc 
dac dfl 



/upper case 
/lower case 

/' means take decimal number 
/" means take as flexo codes 
/a means accumulator 
/I means l-o 

/M means mask register 
/Q means last quantity 
/P means lowest register 

/? 

/Ic, blk 

/d defines sym as address of Q 
/comma defines sym as loc 



def J 
ski. 



de. 



df2, 
dex, 
del, 

val, 

eql, 

pn2, 

arw, 

arl, 
Oct, 
dec, 

smb, 
ens, 

oad, 
rad, 
tls. 



lac 


let 


sza 




jmp- 


err 


law 


pn2 


dap 


dex 


llo 


dfl 


Jsp 


evl 


jmp 


df2 


law 


1 1 


add 


est 


dap 


est 


dlo 


i est 


sub 


one 


dap 


est 


llo 


sym 


dio 


i est 


jmp 


dex 


dlo 


1 ev2 


jmp 


• 


jmp 


pn2 


dac 


dfl 


jmp 


Iss 


dac 


Iwt 


jsp 


let 


jda 


opt 


jsp 


let 


jmp 


Iss 


dac 


Iwt 


jsp 


let 


jda 


pi 


jmp 


del 


law 


odv 


jmp 


.+2 


law 


ddv 


dap 


ops 


jmp 


Ise 


law 


pi 


jmp 


.+2 


law 


opt 


dap 


pns 


jmp 


Ise 


law 


pvl 


jmp 


.+2 


law 


pev 


dap 


pal 


jmp 


Ise 



/define symbol 



/pfP^A^o^ ^0 ^f^^ 



/end of no-eval routines, delete 
/open paren, sets up value for define 



/print octal Integer 



/print as instruction 



/octal-decimal switch setup 



/symbolic-constant switch setup 



/octal-relative switch setup 



pis, lac cad 
jmp ssn 

mln, lac csu 

jmp' ssn 

unl, jmp ssn-i 

Isc, lac can 
Jmp ssn 

dot, lac loc 

mp nl 

tab^ spi 1 /tab 

tas, dac ch 

ta3, dac Iwt '^^' "^^ 

Jsp Ice 

J da pad 

law 7221 

jda tys nfnj'i^'S ^^r 

ta5, dzm loc 

dap loc 
ta6, dap tas 

Jsp let 

lac 1 tas 

dac Iwt 
bax, Jda . /pi, opt or Iwt 

Jmp pn2 

bs, spi i /backspace 

bsl, dac i tas /used as dac 1 

idx loc 

Jmp ta3 

fs, spi 1 /arrow up (forward space) 

dac 1 tas 
law 1 1 
add loc 
dap loc 
Jmp ta3 

^B.c, law opt /open bracket (bar-constant) 

Jmp . +2 
bas, law pi /closed bracket (bar- symbolic) 

dap bax 
-^ bar, lac Iwt 

spi 

Jmp ta6 

lac wrd 

Jmp ta5 

■u-g8, spi i /> means make corr. and open register 

dac 1 tas 
Jmp ta6 



CPj 



bk. 



tr. 



tr2. 



trl. 



bkl. 



xel. 



spi 1 
dac 1 tas 
dac Iwt 
law 72 
jda" tys 
Init tas, 
Jmp Iss 



ch 



spi 

Inlt bkl, ch 

Jmp Ise 



/break 





dap pre 
dap prd 
idx prd 
lac tr 
dac ac 
isp ch 
jmp pr2 
Jsp trl 



dap 
law 
add 
jda 
law 
jda 
law 
jmp 



pra 

pre 
pad 

55 
tys 
ac 
ta5 



P-* (jccX iJwX-^ , 






//print trap addr 



dac ovf 
dlo lo 
dac sbl 
cks 

rll 6s 
spi 1 
dzm sbl 
Ism 

dzm fli 
szf 1 
dac fll 
llo bkl 
dio ch 
lac bkl 
jmp 1 ovf 

XX 

nop 

jmp lis 



/>*^r^ *^U^it^ *^*X 



<>*Vy\AJt tP, ^«M-iA*i 



pra. 


llo . 




dlo blx 




llo chl 




spl 


prl, 


law 




cma 




dac ch 




jsp Ice 




cks 




rll 2s 




spl i 




jmp .-3 




lac sbl 




lot 56 




sza 




esm 


Pr3, 


lac fll 




sza 1 




elf 1 




clo 




lac ovf 




add ovf 




llo 1 bkl 




dlo bkl 




llo (jda tr 




dlo 1 bkl 




llo lo 


Pi'2, 


lac ac 


blx. 


XX 


pre. 


jmp . 


prd. 


Jmp . 


xec. 


dac xel 




law xel 


bgn. 


spl 




jmp err 




dap blx 




lac pre 




dip blx 




Jmp .prl 


easj 


law eal 




jmp ws 


nws. 


lac sk2 




dac wea 


wds. 


law wsl 


ws. 


spl 




jmp err 




dap ws2 




jsp Ice 




dzm t2 




lac 11 




dac t 



/get Instr. at new brk addr. 



/execute 

/begin 



/effective address search 



/not word search 



/word search 



ws4. 


dzm 


sym 






dap 


t2 






lac 


i t2 




ws2, ■ 


Jmp- 


• 


/eal or wsl 


eal. 


and 

sza 


cl 






. Jmp 


ea2 






law 


7777 






and 


1 t2 




wsl. 


xor 


wpd 




can. 


and 


msk 


/used as and 


wea. 


XX 




/sza or sza 1 




Jmp 


ws3 




ws6. 


law 


Ice 




Pac, 


dap 


pax 






lac 


t 






Jda 


pad 






law 2136 






Jda 


tys 






lac 


1 t 






Jda 


Iwt 




pax. 


Jsp 


• 




ws3. 


Idx 


t 


/index and sk: 




sub 


ul 






szm 








Jmp 


Ise 






add 


ul 






sub 


est 






sma 








Jmp 


Ise 






lac 


t 






Jmp 


ws4 




ea2. 


Idx 


sym 






sad 


c77 






Jmp 


ws3 






lac 


i t2 






Jmp 


ws4+l 




pbx. 


dac 


Iwt 






Jsp 


let 


/print as bed 




Jda 


tys 






Jmp 


pn2 





vfy. 



rd 



vfl. 



Jsp Ice 

IsLc rb2 
Jmp. ,+2 
lac bsl 
dip vf4 
Jsp sol 

lac t 
sub 11 
sub (dlo 
spa 

Jmp vf2 
add 11 
sub ul 
szm 

Jmp vf2 
lac 1 la 



vf4. 


t 






Jmp 


vf2 


vf3. 


Jsp 


pac 




jsp 


let 




lac 


i la 




J da 


Iwt 




Jsp 


Ice 


vf2. 


idx 


t 




idx 


la 




sad 


rbl 




jsp 


rbk 




jmp 


vfl 


Iwt, 









dap 


pnx 




lac 


Iwt 


Pns, 


Jda pi 


Pnxj 


Jmp 


• 


kii. 


law 


low 




dac 


est 




Jmp 


Ise 



/dac i or sad i 



/pi or opt 



tbl. 



tbn. 



tbm. 



ttl. 



re 



jsp soi 

lac 1 la 
and' (202020 
ral Is 
xor 1 la 
xor c4 
ell 

rcl 6s 
sza 

jmp .-2 
Idx la 
sad rbl 
jmp fbn 
lac 1 la 
dac dfl 
dio sym 
law 1 1700 
and sym 
sas (char rs 
jsp de 
Idx la 
sad rbl 
jsp rbk 
jmp tbl 

jsp let 
lac est 
jda opt 

jsp rbk 
jmp tbm 

define 
feed N 
law i N 
jda fee 
terminate 

jsp Ice 
listen 
rcr 9s 
rar 9 s 
sad c77 
jmp plr 
sad (36 
jmp prl 
sad (75 
jmp pi 2 
ral Is 
add (ftp 
jda ttl 
idx ttl 
law ttl+1 
jmp ttl+1 



/symbol table reader 



/permute zones 



/delete symbols of form Is, 2s,,.. 9s 



/title punch and punch format setup 



jbk;, spi /jump block 



Pul, dap fa /p\inch lower limit setup 

Jmp Iss 

pwd, spl 1 /punch word 



spi 




Jiftp 


err 


add- 


cj 


dac 


Iwt 


feed 40 


lio 


Iwt 


Jsp 


pbw 


feed 240 


jmp 


Ise 


dap 


fa 


Jmp 


Iss 


spi 


i 


dac 


i tas 


dac 


Iwt 


lac 


tas 


dap 


fa 


dap 


la 


lac 


fa 


lor 


c77 


dac 


t 


sub 


la 


sma 




Jmp pb6 


Idx 


t 


Jsp 


pbb 


lac 


t 


dap 


fa 


jmp pb5 


lac 


la 


dac 


t 


idx 


t 


xct 


pb4 


jmp 


pn2 



pun, dap la /punch any length block 

Pb5, 

lor c77 
dac t 
sub la 
sma 

/next hundred too high 
Pb4, jsp pbb ^^^^rj /p^b or pur 



pb6. 



L4S, 



zro. 



zrl. 



fee,t2. 



f exj 



law 


7777 


spl 




dac 


wrd 


and 


■fa 


spl 




cla 




dac 


t 


sub 


est 


sma 




jmp 


Ise 


add 


est 


sub 


■wrd 


szm 




Jmp 


Ise 


dzm 


i t 


idx 


t 


Jmp 


zrl 







dap 


fex 


ell 




ppa 




isp 


fee 


Jmp 


.-2 


Jmp 


• 



/zero registers below ddt 



/feed subroutine and temp storage 



pi. 



Ppkj 



csu, 

pvl, 

px, 

pev. 



eal, 
ea. 



JUL 

dap 


px 


5 sp . 


pev 


sub 


cl 


spa 




jmp 


ppk 


dac 


Pl 


law 


72 


jda 


tys 


Jsp 


tou 


law 


71 


jda 


tys 


jsp 


tou 


law 


72 


jda 


tys 


and 


(760000 


sad 


prl 


jmp 


plo 


rar 


Is 


sza 




sub 


(320000 


spa 




jmp 


plo 


lac 


pl 


jda 


opt 


jmp 


• 


dap 


pex 


lac 


est 


dap 


ea 


elf 


1 


Idx 


ea 


lac 


* 


xor 


pl 


spa 




jmp 


elx 


lac 


pl 


sub 


i ea 


spa 




jiup 


elx 


szf 


i 1 


jmp 


psw 


lac 


1 ea 


sub 


i ch 


szm 




jmp 


psw 



/print Instruction 



/law 

/used as sub 



/exit 

/symbol lookup subr 



elx. Index ea, eve, eal 

szf 1 1 

jitrp pvl 

lac pi 

sub- 1 ch 

dac pi 

law 1 1 

add ch 

dap ch 

lac i ch 

jda tys 

lac pi 
sk2, sza 1 

jmp px 
pex, Jmp . 

pad J /print address 

dap px 
law 7777 
and pad 
dac pi 
pal, Jsp pev /pev or pvl 

lac (flexo + 
Jda tys 
jmp pvl 

tys, /type symbol, etc. 

dap tyx 
setup opt, 3 

tyl, lac tys 

ral 6s 

dac tys 

and c77 

sza i 

Jmp tyc 

sad (72 

Jmp dns 

sad (74 

Jmp ups 

swap 
tyb, Jsp tou 
tyc, count opt, tyl 

lac Iwt 

cli 
tyx, Jmp , 

dns, lac psl /redundant case shift filter 

lio (72 
dnl, sad cas 

Jmp tyc 

dac cas 

Jmp tyb 

"Lips, lac re 
lio (74 
Jmp dnl 

Ice, dap lex 
law 7277 
Jmp Icl 

let, dap lex 
law 7236 



IcXj 

sol, rpb /skip over input routine 

sol, rpb /enter here 



rbk, dap rbx /read a block Into buffer 



rbO, 
rbl. 



Pbl, 



Ifccar^' 


xys 


Jmp 


• 


rpb 




rpb 




spl 


1 


jmp 


sol 


rpb- 


-1 


dap 


rbx 


Inlt rbl, buf 


dap 


la 


dzm 


chl 


cks 




rll 


Is 


spl 


1 


jmp 


.-3 


rrb 




dlo 


t2 


dlo 


t 


spl 




jmp 


Ise 


rpb 




dlo 


ch 


rpb 




dlo 


• 


lac 


1 rbl 


add 


chl 


dac 


chl 


Idx 


rbl 


Index t2, ch, rbO 


add 


chl 


add 


t 


rpb 




rpb- 


-1 


dlo 


chl 


sad 


1 .-1 


Jmp 


• 


hlt+clc-opr 


jmp 


rbk+1 







dap 


tt2 


lac 


1 ttl 


repeat 3 ell 


jmp 


■ 


dap 


pb2 


llo 


fa 


Jsp 


pbw 


llo 


1 fa 


jsp 


pbw 


Index fa, t, pul 


jmp 


pux 


dap 


pb2 


dzm 


t2 


llo 


fa 


jsp 


pbw 


llo 


t 


Jsp 


pbw 


llo 


1 fa 



/start block read 



rb2, sad 1 .-1 /used as sad 1 

rbx, 

/checksum error stop 

ttl, /title punch subroutine 

rcl 6s ppa 
tt2, 

pur, dap pb2 /punch read-in mode blocks 

pul. 



pbb, dap pb2 /punch binary block format 



pux, 
Pb2, 

Plr, 



pl2, 
pil. 



JSp 


pDW 




index fa. 


t, pbl 


lio 


t2 




jsp 


pbw 




feec 


I 5 




jmp 


• 




feed 


L 40 




move 


^ 7754 


, t 


Inlt 


; fa. 


7751 


Jsp 


pur 




llo 


7775 




jsp 


pbw 




law 


pbb 




dap pb4 




feed 30 




jmp 


Ise 





/jmp 7751 



/combined octal-decimal print subroutine 



opt, 
ops, 

opa, 

opb, 

ope, 
opl. 







idx opl 

opx, 
ddv. 



dap 


opx 




init opl. 


odv 


setup op2j 


, 6 


stf 


1 




dzm 


opd 




szf 


i 1 




jsp 


tou 




jmp 


ope 




elf 


1 




dac 


opt 




idx 


opd 




lac 


opt 




lio 


opt 




sub 


• 




spi 


1 




sma 






jmp 


opb 




lac 


opd 




lio 


opd 




sza 


i 




lio 


ddv+1 




count op2j 


1 opa 


jsp 


tou 




jmp 


• 




decimal 100000 


100 




10 



/odv or ddv 



100000 
100 



odv, 

/dispatch table 



10000 1000 
1 octal 



ci, 10000 1000 

10 one, 1 



dtb. 



disp pis, pis 
disp n, quo 
disp n, sqo 
disp n, pbx 
disp n, daq 
disp n, unl 
disp n, isc 
disp n,^ ^ul . . 



/o 



Chi, 
let, 
chj 
loc. 



syl, 

la, 
fa. 



sbl. 



fll. 



dfl. 



ftp. 



d$Bp n, uc8 

dlsp n, fs 





- 







dlsp n, arw 

dlsp bar, err 

dlsp 1, smb 

dlsp 1, tbl 

dlsp 1, dec 
dlsp 1, vfy 
dlsp 1, wds 
dlsp 1, xec 
dlsp 1, rd 
dlsp 1, zro 


dlsp com, eql 


dio 

dlsp tab, tab 

dlo 



/free registers 



dlsp 


pwd, err 




dlsp 


1, Jbk 




dlsp 


1, kil 




dlsp 


1, ttl 




dlsp 


1, m 




dlsp 


1, nws 




dlsp 


1, oad 




dlsp 


1, pra 




dlsp 


1, q 




dlsp 


1, rad 




opr 






-0 






dlsp 


min, pis 




dlsp 


def, bas 




dlsp 


err, err 




dlsp 


val, bac 











dlsp 


1, a 




dlsp 


1, bk 




dlsp 


1, ens 




dlsp 


1, pun 




dlsp 


1, eas 




dlsp 


1, f 




dlsp 


1^ bgn 




dlsp 


1, oct 




dlsp 


1, Ir 




dlsp 


Ic, Ic 




dlsp 


dot, del 




dlsp 


uc, uc 




dlsp 


bs, bs 











dlsp 


or, cr 




Lch table 










/space 


004277 c4, 400000 




625151 514600 


/2 


224145 453200 


/,'i 


141211 771000 


/^ 


274545 453100 


/5 



Ao 



A 





3^>#5i^— 


453000 . 


/p 




010171 


050300 


/7 




324545 


453200 


/8 




065151 


513600 


/? 


tou. 


dap tox 


dlo tot 


/type out subn 




cks 


rll 2s 






spl '1 


Jmp .-3 






lio tot 


tyO"l 




tox. 


jmp . 


op2, 




opd^dnm. 





tot, 






364141 


413600 


/zero 


c77. 


000077 


000000 


// 




224545 


453000 


^^ 




010177 


010100 


/t 




37^040 


403700 


^^ 




073060 


300700 


A , 




376014 


602700 


/w 




412214 


224100 


/?" 




010274 


020100 


/J 




615141 


454300 


A 


plo. 


jsp pev 


jmp pal+1 






141414 


141400 


/= 


pbw. 


dap pby 


ppb 


/punch 1 word 




rcl 6s 


PPb 






rcl 6s 


PPb 






rcl 6s 


add t2 






dac t2 


Pby, 
403700 


Jmp . 




204040 


^J 




771014 


224100 


/y 




774040 


404000 


A 




770214 


027700 


A 




770214 


207700 


/? 




364141 


413600 


/p 




771111 


110600 


//P 




364151 


215600 


^'l 




771111 


314600 


A 


pswj 


lio ea 


dlo ch 






stf 1 


jmp elx 






101010 


101000 


A 




000041 


221400 


/) 




101074 


101000 


A 




001422 


410000 


/( 


Pri, 


law pur 


Jmp pll 






761111 


117600 


A 




77^5^5 


453200 


^^ 




364141 


412200 


A 




774141 


413600 


?^ 




774545 


414100 


/p 




770505 


010100 


A 




364151 


513000 


A 




771010 


107700 


/}' 




004177 


410000 


/i 




000001 


030000 


/close quote 




000060 


c J, 600000 


/. 




000003 


020000 


/open quote 


buf. 


buf+100/ 






ovf. 









ac. 









lo. 









mskj-0 








11, 









ul. 


7777 






constants 









start lis 
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